Here is a simple example of integrating OpusFTP functions into AWeb II,
which prior to v3.x had no native code to handle ftp:// sites.
When you click on a ftp:// link in AWeb II, the site will be
passed to OpusFTP as well as the initial directory if one exists.
If the port 'DOPUS.1' doesn't exist the script will exit with an error,
otherwise OpusFTP will assume an anonymous login and try to connect to that
site changing to the initial directory if one was passed.
/*
OpusAWebFTP.dopus5
$VER: OpusAWebFTP.dopus5 1.2 (14.5.96) Andrew Dunbar
Copy to your Dopus5:Arexx directory
Add these lines to AWeb's Setting/Network 3: External programs
Command: Sys:Rexxc/RX
Arguments: DOpus5:Arexx/OpusAWebFTP.dopus5 %s %s
*/
if ~show('P','DOPUS.1') then exit 20
address 'DOPUS.1'
parse arg host dir .
if host ~= '' then do
dopus front
if dir ~= '' then command ftpconnect host 'dir' dir
else command ftpconnect host
end
exit
|
